home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / exercise / cointoss.bas < prev    next >
Encoding:
BASIC Source File  |  1998-04-07  |  135 b   |  14 lines
  1. cls
  2. For cointoss = 1 to 5
  3.  
  4. let outcome = random(1,2)
  5. if outcome = 1 then
  6. print "heads!"
  7. else
  8. print "tails!"
  9. endif
  10.  
  11. next cointoss
  12. end
  13.